home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
MOTION.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
3KB
|
80 lines
0 HOME : HGR : HCOLOR= 3: CALL 62450
2 X% = 70:Y% = 70: GOSUB 1000
4 GOSUB 1000
6 VTAB (21): PRINT "This apple is at rest. It will remain at rest unless it is forced to move."
8 FOR I = 0 TO 4000: NEXT
10 HOME : CALL 62450
12 VTAB (21): PRINT "This apple will continue in a uniform motion in a straight line...."
14 FOR I = 70 TO 180
16 X% = I: HCOLOR= 3: GOSUB 1000
18 X% = I: HCOLOR= 0: GOSUB 1000
20 I = I +5: NEXT
22 HOME : CALL 62450
24 VTAB (21): PRINT "...unless an outside force is applied."
26 FOR I = 70 TO 100
28 X% = I: HCOLOR= 3: GOSUB 1000
30 X% = I: HCOLOR= 0: GOSUB 1000
32 I = I +5: NEXT
34 Y% = 70
36 FOR I = 100 TO 180
38 X% = I: HCOLOR= 3: GOSUB 1000
40 X% = I: HCOLOR= 0: GOSUB 1000
42 Y% = Y% +4:I = I +4: NEXT
50 TEXT : HOME : HCOLOR= 3: CALL 62450
52 PRINT : PRINT
54 PRINT "According to Newton's LAW of INERTIA, the apple should have continued along a straight line."
56 PRINT : PRINT : PRINT
58 GOSUB 202
60 PRINT "Why, then, did it fall??"
62 PRINT : PRINT
64 FOR I = 0 TO 3300: NEXT
68 PRINT "Remember..."
70 PRINT " the law also stated that a body in motion will remain in motion UNLESS AN OUTSIDE FORCE IS APPLIED."
72 PRINT : PRINT : PRINT
73 GOSUB 202
74 PRINT "In the case of an apple on Earth, that outside force is GRAVITY."
76 PRINT : PRINT : GOSUB 202
78 PRINT "Press any key for an explanation of GRAVITY!"
80 GET KY$
82 TEXT : HOME
84 PRINT : PRINT : PRINT
86 PRINT "GRAVITY made the apple fall."
88 PRINT : PRINT : GOSUB 206
90 PRINT "GRAVITY is the force of attraction toward the center of the Earth."
92 PRINT : PRINT : GOSUB 202
94 PRINT "The effect of gravity on a body is called WEIGHT."
96 PRINT : PRINT : GOSUB 206
98 PRINT "WEIGHT is NOT a property of INERTIA. It is the effect of GRAVITY on a body."
100 PRINT : PRINT : GOSUB 202
102 PRINT "MASS, NOT WEIGHT is a measure of INERTIA!"
104 PRINT : PRINT : GOSUB 202
106 PRINT : PRINT "Press any key to see an example of MASS versus WEIGHT."
108 GET KY$
110 PRINT CHR$(4);"run moon"
200 END
202 FOR I = 0 TO 5500: NEXT : RETURN
206 FOR I = 0 TO 3500: NEXT : RETURN
998 END
1000 HPLOT X% +3,Y% TO X% +4,Y%
1002 HPLOT X% +3,Y% +1 TO X% +5,Y% +1
1004 HPLOT X% +10,Y% +1 TO X% +11,Y% +1
1006 HPLOT X% +3,Y% +2 TO X% +6,Y% +2
1008 HPLOT X% +10,Y% +2 TO X% +11,Y% +2
1010 HPLOT X% +4,Y% +3 TO X% +7,Y% +3
1012 HPLOT X% +9,Y% +3 TO X% +10,Y% +3
1014 HPLOT X% +4,Y% +4 TO X% +10,Y% +4
1016 HPLOT X% +1,Y% +5 TO X% +16,Y% +5
1018 HPLOT X%,Y% +6 TO X% +17,Y% +6
1020 HPLOT X%,Y% +7 TO X% +17,Y% +6
1022 HPLOT X%,Y% +8 TO X% +17,Y% +8
1024 HPLOT X%,Y% +9 TO X% +17,Y% +9
1026 HPLOT X% +1,Y% +10 TO X% +16,Y% +10
1028 HPLOT X% +1,Y% +11 TO X% +16,Y% +11
1030 HPLOT X% +1,Y% +12 TO X% +16,Y% +12
1032 HPLOT X% +2,Y% +13 TO X% +15,Y% +13
1034 HPLOT X% +2,Y% +14 TO X% +15,Y% +14
1036 HPLOT X% +3,Y% +15 TO X% +14,Y% +15
1038 HPLOT X% +4,Y% +16 TO X% +13,Y% +16
1040 HPLOT X% +5,Y% +17 TO X% +7,Y% +17
1042 HPLOT X% +10,Y% +17 TO X% +12,Y% +17
1044 RETURN